home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / td187src.lzh / MTGRAPHI.D < prev    next >
Text File  |  1991-06-08  |  3KB  |  73 lines
  1. DEFINITION MODULE mtGraphic;
  2.  
  3. FROM MagicSys   IMPORT  Byte, ByteSet,
  4.                         sWORD, sINTEGER, sCARDINAL, sBITSET,
  5.                         lWORD, lINTEGER, lCARDINAL, lBITSET;
  6.  
  7.  
  8. TYPE    GRAPHIC;       (* Grafik-Typ, opaque *)
  9.  
  10.  
  11.  
  12. (*--------------------------------------------------------------------------*
  13.  *     Auf die folgenden Variablen sollte nur LESEND zugegriffen werden!    *
  14.  *--------------------------------------------------------------------------*)
  15.  
  16. VAR     Graphic:        TERMINAL; (* Aktuelles Terminal                     *)
  17.         Xpos:           sINTEGER; (* X-Pixelpos der aktuellen Grafik        *)
  18.         Ypos:           sINTEGER; (* Y-Pixelpos des aktuellen Grafik        *)
  19.         Width:          sINTEGER; (* Breite der Grafik in Pixel             *)
  20.         Height:         sINTEGER; (* Höhe des Grafik in Pixel               *)
  21.  
  22. (*--------------------------------------------------------------------------* 
  23.  *    Die Ausgabe der folgenden Prozeduren erfolgt in die aktuelle Grafik   * 
  24.  *--------------------------------------------------------------------------*)
  25.  
  26. PROCEDURE Point         (x, y: sINTEGER);
  27. PROCEDURE Line          (x1, y1, x2, y2: sINTEGER);
  28. PROCEDURE Box           (x1, y1, x2, y2: sINTEGER);
  29. PROCEDURE Arc           (mx, my, rad, start, end: sINTEGER);
  30. PRCEDURE  Ellipse       (mx, my, r1, r2, start, end: sINTEGER;
  31. PROCEDURE WriteChar     (x, y: sINTEGER; c: CHAR);
  32. PROCEDURE WriteString   (x, y: sINTEGER; s: ARRAY OF CHAR);
  33. PROCEDURE ClearScreen;
  34. PROCEDURE ForegroundColor (color: sINTEGER);
  35. PROCEDURE BackgroundColor (color: sINTEGER);
  36.  
  37. (*--------------------------------------------------------------------------* 
  38.  *    Die Ausgabe der folgenden Prozeduren erfolgt in die aktuelle Grafik   * 
  39.  *--------------------------------------------------------------------------*)
  40.  
  41.  
  42. (*--------------------------------------------------------------------------*
  43.  *                      Support für mehrere Terminals                       *
  44.  *--------------------------------------------------------------------------*)
  45.  
  46. PROCEDURE OpenGraphic (x, y, w, h: sINTEGER): TERMINAL;
  47. (* Öffnet ein Terminal an Position x,y mit Breite/Höhe w/h in PIXEL *)
  48.  
  49. PROCEDURE CloseGraphic (VAR term: TERMINAL);
  50. (* Schließt das Terminal. *)
  51.  
  52. PROCEDURE ChangeGraphic (term: TERMINAL): TERMINAL;
  53. (* Wechselt das Terminal. Returniert das bisherige aktuelle Terminal *)
  54.  
  55. PROCEDURE GetGraphic (term: TERMINAL; VAR x, y, w, h, sp, zl, font: sINTEGER);
  56. (* Liefert Größe und Position und Font des Terminals *)
  57.  
  58. PROCEDURE SetGraphic (term: TERMINAL; x, y, w, h: sINTEGER);
  59. (* Setzt Größe, und Position des Terminals Breite und Höhe (w/h) in PIXEL *)
  60.  
  61. PROCEDURE GetMaximum (VAR x, y, w, h, sp, zl: sINTEGER);
  62. (* Liefert größtmögliche Fläche des Terminals *)
  63.  
  64. PROCEDURE RedrawTerminal (term: TERMINAL; x, y, w, h: sINTEGER);
  65. (* not yet implemented *)
  66.  
  67. PROCEDURE ClipRect (doit: BOOLEAN; a, b, c, d: sINTEGER);
  68. (* Clipping. *)
  69.  
  70.  
  71. END mtGraphic.
  72.  
  73.